home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / FEARLESS.ZIP / FeArLeSs.ini next >
INI File  |  1997-01-17  |  33KB  |  659 lines

  1. [Aliases]
  2. n0=/kb /mode # +b $$1 | /kick # $$1 *2 | /timer 1 30 /mode # -b $$1
  3. n1=/~ /sound # $$1 $+ .wav
  4. n2=/op /mode # +ooo $$1 $2 $3
  5. n3=/dop /mode # -ooo $$1 $2 $3
  6. n4=/j /join #$$1
  7. n5=/p /part #
  8. n6=/n /names #$$1
  9. n7=/w /whois $$1
  10. n8=/k /kick # $$1
  11. n9=/q /query $$1
  12. n10=/hop /part # | /join #$$1
  13. n11=/send /dcc send $1 $2
  14. n12=/chat /dcc chat $1
  15. n13=/ping /ctcp $$1 ping
  16. n14========================backward talk====================
  17. n15=/backwards {
  18. n16=  unset %backtext
  19. n17=  if ($1 == -d) { 
  20. n18=    set %backtext ºá
  21. n19=    set %text $remove(*1,$left(3,*1))
  22. n20=  }
  23. n21=  else { %text = *1 }
  24. n22=  %space = $chr(32)
  25. n23=  %i = $len(%text) + 1
  26. n24=  :next
  27. n25=  dec %i 1
  28. n26=  if %i == 0 { say %backtext | halt }
  29. n27=  %thischar = $mid(%i,1,%text)
  30. n28=  if %thischar == %space {
  31. n29=    %thislet = á
  32. n30=    if %backtext == $null { set %backtext %thislet | goto next }
  33. n31=    else { set %backtext %backtext $+ %thislet | goto next }
  34. n32=  }
  35. n33=  if %backtext == $null { set %backtext %thischar | goto next }
  36. n34=  else { set %backtext %backtext $+ %thischar | goto next }
  37. n35=}
  38. n36====================Chan Stats===================
  39. n37=ScaNniNg enable #CloneScan | who #
  40. n38=ScaNaGaiN enable #Status | who #
  41. n39=IRCopScan enable #opscan | who #
  42. n40=======================Random Color======================
  43. n41=/wc {
  44. n42=  if ($1 == /me) { %cmd = me | %txt = *2 }
  45. n43=  elseif ($1 == /echo) { %cmd = echo | %txt = *2 }
  46. n44=  elseif ($1 == /sound) { %cmd = sound $2 | %txt = *3 }
  47. n45=  elseif ($1 == /onotice) { %cmd = onotice # Ops: | %txt = *2 }
  48. n46=  elseif ($1 == /msg) { %cmd = msg $2 | %txt = *3 }
  49. n47=  elseif ($1 == /notice) { %cmd = notice $2 | %txt = *3 }
  50. n48=  else { %cmd = say | %txt = *1 } 
  51. n49=  %i = 1 | %ctxt = $chr(3)
  52. n50=  :nxtc
  53. n51=  %rnd = $rand(1,15)
  54. n52=  if ( %rnd == 8 || %rnd == 9 || %rnd == 11 || %rnd == 15 ) { goto nxtc } 
  55. n53=  if ( %rnd < 10 ) { %ctxt = %ctxt $+ 0 $+ %rnd }
  56. n54=  else { %ctxt = %ctxt $+ %rnd }
  57. n55=  :nxtchr
  58. n56=  if ( $mid( %i, 1, %txt ) != $chr(32) ) { 
  59. n57=    %ctxt = %ctxt $+ $mid( %i, 1, %txt ) 
  60. n58=    if ( %i < $len( %txt ) ) { inc %i | goto nxtchr }
  61. n59=    else { %cmd %ctxt }
  62. n60=  }
  63. n61=  else { 
  64. n62=    if ( %i < $len( %txt ) ) { %ctxt = %ctxt $+ $chr(32) $+ $chr(3) | inc %i | goto nxtc }
  65. n63=    else { %cmd %ctxt }
  66. n64=  }
  67. n65=  unset %cmd %txt %i %ctxt %rnd
  68. n66=}
  69. n67=======================Coded Talk=======================
  70. n68=/e {
  71. n69=  set %ftalk *1
  72. n70=  %ftalk = $replace(%ftalk,a,σ)
  73. n71=  %ftalk = $replace(%ftalk,b,▀)
  74. n72=  %ftalk = $replace(%ftalk,c,⌐)
  75. n73=  %ftalk = $replace(%ftalk,d,╨)
  76. n74=  %ftalk = $replace(%ftalk,e,δ)
  77. n75=  %ftalk = $replace(%ftalk,f,F)
  78. n76=  %ftalk = $replace(%ftalk,g,G)
  79. n77=  %ftalk = $replace(%ftalk,h,H)
  80. n78=  %ftalk = $replace(%ftalk,i,ε)
  81. n79=  %ftalk = $replace(%ftalk,j,J)
  82. n80=  %ftalk = $replace(%ftalk,k,K)
  83. n81=  %ftalk = $replace(%ftalk,l,ú)
  84. n82=  %ftalk = $replace(%ftalk,m,M)
  85. n83=  %ftalk = $replace(%ftalk,n,±)
  86. n84=  %ftalk = $replace(%ftalk,o,°)
  87. n85=  %ftalk = $replace(%ftalk,p,╢)
  88. n86=  %ftalk = $replace(%ftalk,q,Q)
  89. n87=  %ftalk = $replace(%ftalk,r,«)
  90. n88=  %ftalk = $replace(%ftalk,s,º)
  91. n89=  %ftalk = $replace(%ftalk,t,t)
  92. n90=  %ftalk = $replace(%ftalk,u,╡)
  93. n91=  %ftalk = $replace(%ftalk,v,V)
  94. n92=  %ftalk = $replace(%ftalk,w,\\')
  95. n93=  %ftalk = $replace(%ftalk,x,╫)
  96. n94=  %ftalk = $replace(%ftalk,y,Ñ)
  97. n95=  %ftalk = $replace(%ftalk,z,Z)
  98. n96=  say %ftalk
  99. n97=}
  100.  
  101. [mPopup]
  102. n0=ADVERTISE!:/me 12is using FeArLeSsCrIpT, an improvement of 4ALL 12Scripts!!!
  103. n1=-
  104. n2=ExTrAs!
  105. n3=.EDIT NOTES:/run notepad.exe c:\mirc\notes.txt
  106. n4=.-
  107. n5=.IGNORE
  108. n6=..Nick Ignore:/ignore $?="ENTER NICK TO BE IGNORED"
  109. n7=..Address Ignore:/ignore $?="ENTER NICK TO BE IGNORED" 3
  110. n8=.-
  111. n9=.PERSONAL MODES
  112. n10=..Invisibility
  113. n11=...INVISIBILITY ON:/mode $me +i
  114. n12=...INVISIBILITY OFF:/mode $me -i
  115. n13=..-
  116. n14=..Wallops
  117. n15=...WALLOPS ON:/mode $me +w
  118. n16=...WALLOPS OFF:/mode $me -w
  119. n17=..-
  120. n18=..Server Notices
  121. n19=...SNOTICES ON:/mode $me +s
  122. n20=...SNOTICES OFF:/mode $me -s
  123. n21=.-
  124. n22=.INVITE
  125. n23=..Invite 3 people:/invite $$?="ENTER NICK" # | /invite $?="ENTER NICK" # | /invite $?="ENTER NICK" #
  126. n24=..Someone:/invite $$?="ENTER NICK" #
  127. n25=.-
  128. n26=.NOTIFY LIST
  129. n27=..Notify List:/notify
  130. n28=..Add Notify:/notify $?="NICK"
  131. n29=.-
  132. n30=.SERVER
  133. n31=..Lusers:/lusers
  134. n32=..Motd:/motd
  135. n33=..Time:/time
  136. n34=-
  137. n35=Cool Add-ons
  138. n36=.SPLIT DETECTOR
  139. n37=..On:/set %splitstat ON | //echo 4 $active The Split Detector is currently: %splitstat
  140. n38=..Off:/set %splitstat OFF | //echo 4 $active The Split Detector is currently: %splitstat
  141. n39=.WRITE OPTIONS
  142. n40=..Color Test:echo 1.1 2.2 3.3 4.4 5.5 6.6 7.7 8.8 9.9 10.10 11.11 12.12 13.13 14.14 15.15
  143. n41=..Single Random Color:/wc $?="Enter A Message"
  144. n42=..Coded Writing:/e $?="Enter A Message"
  145. n43=..Talk Backwards:/backwards $?="Enter a message" 
  146. n44=-
  147. n45=Away
  148. n46=.AWAY
  149. n47=..Set Away:/set %minutes 0 | /timer1 0 60 /inc %minutes 1 | /set %away $?="Enter away message" | /ame is away - %away | /enable #away
  150. n48=..Set Back:/timer1 off | /ame is back | /away | /disable #away 
  151. n49=.PAGER
  152. n50=..On:/ame is away, <ò> /ctcp $me page <ò> to yell at me | /enable #pagersay | /enable #pager
  153. n51=..Off:/ame is back | /away | /disable #pagersay | /disable #pager
  154. n52=-
  155. n53=Channel
  156. n54=.CHANNEL PROTECTION
  157. n55=..Flood Watch (lines/sec)
  158. n56=...ON:/set %floodpro enabled | /echo 4 Channel Flood Protection Now Active | /amsg 12 I have Activated my <FeAr FlooD ProTeCTion> Please, No more than < $+ %maxlines $+ > <LineS> in < $+ %maxsecs $+ > <Seconds>
  159. n57=...OFF:/set %floodpro disable | /echo 4 Channel Flood Protection Now Inactive | /amsg 12 I have De-Activated my <FeAr FlooD ProTeCTion>
  160. n58=...SET TRIGGER:/set %maxlines $?="How many lines? (ie 5)" | /set %maxsecs $?="In How many Secs? (ie 5)" | /echo 4 Chan Flood Trigger Set To %maxlines lines in %maxsecs seconds!
  161. n59=..Characters Protection
  162. n60=...ON:/set %charonoff enabled | /echo 4 Characters Kick Is Active at %maxchars a line. | /amsg 12 12 I have Activated my <FeAr Too-Many ChARacTerS KiCK> Please, Dont Use More Than < $+ %maxchars $+ > in one TeXT BloCk! 
  163. n61=...OFF:/set %charonoff disable | /echo 4 Character Kick Is Now Off | /amsg 12 I have De-Activated my <FeAr Too-Many ChARacTerS KiCK>
  164. n62=...SET MAX CHARACTERS:/set %maxchars $?="What is Max. Characters (ie. 300)?"
  165. n63=..Cap Lock Protection
  166. n64=...ON:/set %caponoff enabled | /echo 4 Cap Lock Now On. No more than %caps.trigger percent is allowed! | /amsg 12 I have Activated my <FeAr CaP KicK> Please, Dont use more than %caps.trigger percent caps in your text!
  167. n65=...OFF:/set %caponoff disable | /echo 4 Cap Lock Now Off | /amsg 12 I have De-Activated my <FeAr CaP KicK>
  168. n66=...SET TRIGGER:/set %caps.trigger $?="Max Number of Caps (percent) Usually 75"
  169. n67=..Filter Kick
  170. n68=...ON:/set %filteronoff enabled | /set %filter. [ $+ [ # ] ] $?="What word?" | /msg # 12 I have Had enough of that stupid word < $+ %filter. [ $+ [ # ] ] $+ > So I am going to Filter it out. <I will kick you if u say that word>
  171. n69=...OFF:/set %filteronoff disable | /unset %filter. [ $+ [ # ] ] | /msg # 12 I have De-Activated my <FeAr FiLTeR KicK> You can once again speak freely.
  172. n70=...CHANGE:/set %filter. [ $+ [ # ] ] $?="Old: %filter. [ $+ [ # ] ] -- Change It to?" | /msg # 12 I am changing the filterkick word to < $+ %filter. [ $+ [ # ] ] > Dont Say ThaT word ! I will KiCK!
  173. n71=..Private Protection
  174. n72=...ON:/set %privflood enabled | /echo 4 Private Flood Protection Now Active at %pmaxlines (lines) in %pmaxsecs (seconds) 
  175. n73=...OFF:/set %privflood disable | /echo 4 Private Flood Protection Now Inactive
  176. n74=...SET TRIGGER:/set %pmaxlines $?="What is the max lines (ie 6 - 8)" | /set %pmaxsecs $?="In How many Seconds? (10 - 12)" | /echo 4 Private Flood Trigger Set To %pmaxlines (lines) in %pmaxsecs (seconds).
  177. n75=..&ChanScan
  178. n76=...&IRCopScan
  179. n77=....&Private:/set %todo echo 4 $ractive *** | /ircopscan
  180. n78=....&Displayed:/set %todo msg # | /ircopscan
  181. n79=...&CloneScan
  182. n80=....&Private:/set %clone echo 4 $ractive *** | /Scanning
  183. n81=....&Displayed:/set %clone msg # | /Scanning
  184. n82=...&External
  185. n83=....&Private:/set %clone echo 4 $ractive *** | /scanagain
  186. n84=....&Displayed:/set %clone msg # | /scanagain
  187. n85=.-
  188. n86=.NAMES
  189. n87=..Names ?:/names #$$?="Enter a channel name:"
  190. n88=.-
  191. n89=.JOIN
  192. n90=..Join ?:/join $$?="Enter a channel to join:"
  193. n91=.-
  194. n92=.LOCK
  195. n93=..Lock Your Channel:/mode # +smitn
  196. n94=.-
  197. n95=.UNLOCK
  198. n96=..Unlock Your Channel:/mode # -smiklp+tn
  199. n97=.-
  200. n98=.SET CHANNEL MODE
  201. n99=..Invite Only:/mode # +i
  202. n100=..Not Invite Only:/mode # -i
  203. n101=..-
  204. n102=..Limit...:/mode # +l $$?="Give the max amount"
  205. n103=..No Limit:/mode # -l 0
  206. n104=..-
  207. n105=..Private:/mode # +p
  208. n106=..Not Private:/mode # -p
  209. n107=..-
  210. n108=..Messages:/mode # -n
  211. n109=..No Messages:/mode # +n
  212. n110=..-
  213. n111=..Secret:/mode # +s
  214. n112=..Not Secret:/mode # -s
  215. n113=..-
  216. n114=..Moderated:/mode # +m
  217. n115=..Not Moderated:/mode # -m
  218. n116=.-
  219. n117=.LOG!
  220. n118=..Log:/log on
  221. n119=..No Log:/log off
  222. n120=-
  223. n121=Topics
  224. n122=.Kewl Topic maker
  225. n123=..Design1:/topic $chan "_╕,.╗¼=µñ║▓░`» »`░▓║ñµ- $$?="Enter a Topic" -=µñ║▓░`» »`░▓║ñµ=¼½.,╕."
  226. n124=..Design2:/topic $chan ¿¿░║⌐o┐,,┐o⌐║░¿¿░║⌐ $$?="Enter a Topic" ⌐║░¿¿░║⌐o┐,,┐o⌐║░
  227. n125=.Style 1:/topic # ⌐║░¿¿░║⌐⌐║░¿¿░║⌐ $$?="Enter topic:" ⌐║░¿¿░║⌐⌐║░¿¿░║⌐
  228. n126=.Style 2:/topic # ╕.╖┤^`╖.,╕╕.╖┤^`░▓║ñµ=¼½.,╕_ $$?="Enter topic:"  _╕,.╗¼=µñ║▓░`^`╖.╕╕.╖┤^`╖.,╕
  229. n127=.Style 3:/topic # `╖.╕╕.╖┤»`╖.╕╕.╖┤»`> $$?="Enter topic:" <┤»`╖.╕╕.╖┤»`╖.╕╕.╖┤
  230. n128=.Style 4:/topic # *«*┤»`*.╕╕.*┤»`*( $$?="Enter topic:" )*┤»`*.╕╕.*┤»`*⌐*
  231. n129=.Style 5:/topic # ===========>>>> $$?="Enter topic:" <<<<=============
  232. n130=.Style 6:/topic #  |!ñ*'~``~'*ñ!||!ñ*'~``~'*ñ!| $$?="Enter topic:" |!ñ*'~``~'*ñ!||!ñ*'~``~'*ñ!|
  233. n131=.Style 7:/topic # +( ,-*~'^'~*-,._.,-*~ $$?="Enter topic:" ~*-,._.,-*~'^'~*-, )+
  234. n132=.Style 8:/topic # .,-*-,._.,-*'^'~*-,._.,-*~> $$?="Enter topic:" <~*-,._.,-*~'^'~*-,.
  235. n133=-
  236. n134=My user modes
  237. n135=.WHOIS:/whois $?="ENTER NICK"
  238. n136=.WHOWAS:/whowas $?="ENTER NICK"
  239. n137=.-
  240. n138=.QUERY:/query $?="ENTER NICK"
  241. n139=.MSG:/msg $?="ENTER NICK AND MESSAGE"
  242. n140=.-
  243. n141=.QUIT:/quit
  244. n142=.QUIT WITH A REASON:/quit $?="ENTER REASON"
  245. n143=.-
  246. n144=.UWHO LIST:/uwho
  247. n145=.UWHO:/uwho $?="ENTER NICK"
  248. n146=-
  249. n147=Remote Specs
  250. n148=.REMOTE [ON]:/remote on
  251. n149=.REMOTE [OFF]:/remote off
  252. n150=.EVENTS [ON]:/events on
  253. n151=.EVENTS [OFF]:/events off
  254. n152=.-
  255. n153=.REMOTE AND EVENTS [ON]:/remote on | /events on
  256. n154=.REMOTE AND EVENTS [OFF]:/remote off | /events off
  257. n155=-
  258. n156=Dalnet Services
  259. n157=.Chanserv
  260. n158=..Register:/msg chanserv register # $?="What is the password?" $?="Topic?"
  261. n159=..Identify:/msg chanserv identify # $?="What is the password?" 
  262. n160=..Drop Channel:/msg chanserv drop #
  263. n161=..Info On Channel:/msg chanserv info #
  264. n162=..Set Channel Modes
  265. n163=...Change Founder:/msg Chanserv set # Founder $?="Enter new founder" 
  266. n164=...Password:/msg chanserv set # passwd $?="Enter New password"
  267. n165=...Description:/msg Chanserv set # desc $?="Enter Description"
  268. n166=...Mode Lock:/msg Chanserv set # Mlock $?="Enter Channel modes to be locked"
  269. n167=...Private
  270. n168=....On:/msg chanserv set # private on
  271. n169=....Off:/msg chanserv set # private off
  272. n170=...Unsecure
  273. n171=....On:/msg chanserv set # unsecure On
  274. n172=....Off:/msg chanserv set # unsecure Off
  275. n173=...Opguard
  276. n174=....On:/msg Chanserv set # Opguard ON
  277. n175=....Off:/msg chanserv set # opguard Off
  278. n176=...Keep Topic
  279. n177=....On:/msg Chanserv set # keeptopic on 
  280. n178=....Off:/msg Chanserv set # keeptopic off
  281. n179=...Topic Lock
  282. n180=....Sop:/msg chanserv set # topiclock sop
  283. n181=....Founder:/msg chanserv set # topiclock founder
  284. n182=....Off:/msg chanserv set # topiclock off
  285. n183=...Leave ops
  286. n184=....On:/msg chanserv set # Leaveops On
  287. n185=....Off:/msg chanserv set # desc $?="Enter Description"
  288. n186=...Mode Lock:/msg Chanserv set # Mlock $?="Enter Channel modes to be locked"
  289. n187=..Access:/msg chanserv access # $?="Enter nick to set access level" 
  290. n188=..Deop:/msg chanserv deop # $?="Enter nick you want to deop"
  291. n189=..Op:/msg chanserv op # $?="Enter nick you want to op"
  292. n190=..Get Info On Chan:/msg chanserv info #
  293. n191=..Lock Modes:/msg chanserv mlock # $?="Enter modes to be locked"
  294. n192=..Unban
  295. n193=...Just me:/msg chanserv unban $?="Enter channel" Me
  296. n194=...All:/msg chanserv unban $?="Enter channel" All
  297. n195=.Nickserv
  298. n196=..Register:/msg nickserv register $?="Using Password?"
  299. n197=..Identify:/msg nickserv identify $?="Password?"
  300. n198=..Set Options
  301. n199=...Password:/msg Nickserv set passwd $?="Enter New Password"
  302. n200=...Kill
  303. n201=....On:/msg Nickserv Set Kill On
  304. n202=....Off:/msg Nickserv Set Kill Off
  305. n203=...Url:/msg Nickserv set Url $?="Enter Url"
  306. n204=..Access
  307. n205=...Add:/msg Nickserv Access Add $?="Enter address to Add"
  308. n206=...Delete:/msg Nickserv Access Del $?=Enter address to Delete"
  309. n207=...List:/msg Nickserv Access List  
  310. n208=..Recover:/msg Nickserv Recover $?="Enter Nickname to recover" $?="Enter password for the nick"
  311. n209=..Ghost:/msg nickserv ghost $?="Enter Nickname to Ghost <Kill>" $?="Enter password for the nick"
  312. n210=..Drop:/msg nickserv drop $?="Enter nick to drop"
  313. n211=..Release:/msg nickserv release $?="Enter nick to release" $?="Enter password for the nick"
  314. n212=..Acc:/msg nickserv acc $?="Enter nick to set access level" $?="Enter access level"
  315. n213=..List:/msg nickserv list 
  316. n214=..Info On Nick:/msg nickserv info $?="Enter nick"
  317. n215=-
  318.  
  319. [qPopup]
  320. n0=-
  321. n1=UCentral:/uwho $$1
  322. n2=Whois:/whois $$1
  323. n3=CTCP
  324. n4=.Ping:/ctcp $$1 ping
  325. n5=.Finger:/ctcp $$1 finger
  326. n6=.Version:/ctcp $$1 version
  327. n7=.Time:/ctcp $$1 time
  328. n8=.Userinfo:/ctcp $$1 userinfo
  329. n9=.ClientInfo:/ctcp $$1 clientinfo
  330. n10=DCC
  331. n11=.Send:/dcc send $$1
  332. n12=Log!
  333. n13=.Log On:/log on
  334. n14=.Log Off:/log off
  335. n15=IGNORE!
  336. n16=.nick ignore:/ignore $$1
  337. n17=.address ignore:/ignore $$1 3
  338. n18=Actions!
  339. n19=.FeAr Slaps
  340. n20=..Trout:/me slaps $1 around with a rotten trout!
  341. n21=..Stone:/me has been turned to stone cause of $1 's uglyness!
  342. n22=..Bat:/me gets a blue plastic bat and smashes $1 with it " BATTER UP!! "
  343. n23=..Surprise:/me sneaks up behind $1 and puts a live tarantula down $1 's pants!! " HeHeHeHe!
  344. n24=..Warning:/me warns $1 to watch their mouth or risk being kicked!
  345. n25=..Fake lagg:/say $1 you there? | /timer1 1 7 /say Are you still alive $1 ? | /timer2 1 14  /say are you ignoring me $1 ? | /timer3 1 21 /say You must be lagging $1 HELLOOOO!! | /timer4 1 28 /say WOOO 39 sec ping reply WoW! | /timer5 1 35 /say you better do something about that lagg $1 | /timer6 1 42 /say HELLO!! ARGH! | /timer7 1 49 /say hehehehe Gotcha!
  346. n26=..Block Attack:/me blocks $$1's futile and hopeless attack!
  347. n27=..Glare At:/me glares sharply at $$1 !
  348. n28=..Punch:/me punches $$1 sharply in the nose!
  349. n29=..Shotgun:/me blows $$1 away with a double barrel shotgun!
  350. n30=..Grenade:/me takes out a grenade ... pulls the pin ... 4 ... 3 ..2 ... tosses it at $$1! | /say Damn...what a BLAST!!!
  351. n31=..Hangman:/me puts a tight rope around $$1's neck and opens the channel trapdoor! | /say hung!!!
  352. n32=..Cast Spell:/me casts a magical spell of $?="What kind of spell?" upon $$1!
  353. n33=..Atomic Blast:/me flys over in his B-52 Bomber and drops a 100 bombs over $$1! | /say So Long!  
  354. n34=..Chainsaw:/me takes out his chainsaw and cuts $$1 into so many pieces his momma couldn't put him back together! | /say It slices, it dices, and it makes curly fries!
  355. n35=..Cornholio:/me drinks some coffee and turns into CORNHOLIO!!! | /me does a flying jump kick to $$1's face!
  356. n36=.General Actions
  357. n37=..Wave:/me waves hi to $$1!
  358. n38=..Hi:/say Hi $$1!
  359. n39=..Bye:/say Bye $$1! Take Care!
  360. n40=..Laugh at:/me laughs uncontrollably at $$1!
  361. n41=..Talk Backwards:/backwards $?="Enter a message" 
  362. n42=..Play ASCII Art:/play c:\internet\mirc\ascii\ $+ $?="Give name of file to play" $+ .txt
  363. n43=-
  364.  
  365. [lPopup]
  366. n0=-
  367. n1=ExTrAs!
  368. n2=.Whois:/whois $$1
  369. n3=.-
  370. n4=.UCentral
  371. n5=..UWho nick:/uwho $1
  372. n6=..Uwho list:/uwho
  373. n7=.-
  374. n8=.CTCP
  375. n9=..Ping:/ctcp $$1 ping
  376. n10=..Finger:/ctcp $$1 finger
  377. n11=..Version:/ctcp $$1 version
  378. n12=..Time:/ctcp $$1 time
  379. n13=..Userinfo:/ctcp $$1 userinfo
  380. n14=..ClientInfo:/ctcp $$1 clientinfo
  381. n15=.-
  382. n16=.DCC
  383. n17=..Send:/dcc send $1
  384. n18=..Chat:/dcc chat $1
  385. n19=-
  386. n20=Control
  387. n21=.OP OR DEOP
  388. n22=..Op:/mode # +o $$1
  389. n23=..Mass Op:/mode # +oooo $$1 $2 $3 $4 | /mode # +oooo $5 $6 $7 $8 | /mode # +oooo $9 $10 $11 $12 | /mode # +oooo $13 $14 $15 $16 | /mode # +oooo $17 $18 $19 $20 | /mode # +oooo $21 $22 $23 $24 | /mode # +oooo $25 $26 $27 $28 | /mode # +oooo $29 $30 $31 $32
  390. n24=..Deop:/mode # -o $$1
  391. n25=..Mass Deop:/mode # -oooo $$1 $2 $3 $4 | /mode # -oooo $5 $6 $7 $8 | /mode # -oooo $9 $10 $11 $12 | /mode # -oooo $13 $14 $15 $16 | /mode # -oooo $17 $18 $19 $20 | /mode # -oooo $21 $22 $23 $24 | /mode # -oooo $25 $26 $27 $28 | /mode # -oooo $29 $30 $31 $32 
  392. n26=..Aop Someone:/say Adding $$snick(1,#) to Aop List | /msg chanserv aop # add $$snick(1,#)
  393. n27=..Sop Someone:/say Adding $$snick(1,#) to Sop List | /msg chanserv sop # add $$snick(1,#)
  394. n28=..De Aop Someone:/say Deleteing $$snick(1,#) to Aop List | /msg chanserv aop # del $$snick(1,#)
  395. n29=..De Sop Someone:/say Deleteing $$snick(1,#) to Sop List | /msg chanserv sop # del $$snick(1,#)
  396. n30=.-
  397. n31=.KICK
  398. n32=..Kick:/kick # $1
  399. n33=..Mass kick:/kick # $1 | /kick # $2 | /kick # $3 | /kick # $4 | /kick # $5 | /kick # $6 | /kick # $7 | /kick # $8 | /kick # $9
  400. n34=.-
  401. n35=.BANS
  402. n36=..Ban:/ban $1 3
  403. n37=..Timed Ban:%time = $$?="Length of ban:" | /mode $chan +b $address($$1,3) | /timer 1 %time /mode $chan -b $address($$1,3) | /msg $chan $1 has been banned for %time seconds.
  404. n38=..Massban:/ban $1 3 | /ban $2 3 | /ban $3 3 | /ban $4 3 | /ban $5 3
  405. n39=.-
  406. n40=.BAN KICKS
  407. n41=..Ban Kick:/ban $1 3 | /kick # $1
  408. n42=..Timed Ban/Kick:/%time = $$?="Length of ban-kick:" | /mode $chan +b $address($$1,3) | /kick $chan $$1 You're ban Kicked! | /timer 1 %time /mode $chan -b $address($$1,3) | /msg $chan $1 has been ban-kicked for %time seconds. | /msg $$1 You have been ban-kicked for %time seconds
  409. n43=..Mass Ban Kick:/kick # $1 | /kick # $2 | /kick # $3 | /kick # $4 | /kick # $5 | /kick # $6 | /kick # $7 | /kick # $8 | /kick # $9 | /ban # $1 3 | /ban # $2 3 | /ban # $3 3 | /ban # $4 3 | /ban # $5 3
  410. n44=.-
  411. n45=.VOICE
  412. n46=..Give Voice:/mode # +vvvv $$1 $2 $3 $4
  413. n47=..Take Voice:/mode # -vvvv $$1 $2 $3 $4
  414. n48=-
  415. n49=Power Kick All:/kick # $$* Bye Bye!
  416. n50=-
  417. n51=Levels
  418. n52=.AUSER: /auser $?="ENTER LEVEL" $1 | /guser $?="ENTER LEVEL" $1 3
  419. n53=.-
  420. n54=.RUSER: /ruser $1 3 | /ruser $1
  421. n55=.-
  422. n56=.FLUSH:/flush
  423. n57=-
  424. n58=Actions!
  425. n59=.FeAr Slaps
  426. n60=..Trout:/me slaps $1 around with a rotten trout!
  427. n61=..Stone:/me has been turned to stone cause of $1 's uglyness!
  428. n62=..Bat:/me gets a blue plastic bat and smashes $1 with it " BATTER UP!! "
  429. n63=..Surprise:/me sneaks up behind $1 and puts a live tarantula down $1 's pants!! " HeHeHeHe!
  430. n64=..Warning:/me warns $1 to watch their mouth or risk being kicked!
  431. n65=..Fake lagg:/say $1 you there? | /timer1 1 7 /say Are you still alive $1 ? | /timer2 1 14  /say are you ignoring me $1 ? | /timer3 1 21 /say You must be lagging $1 HELLOOOO!! | /timer4 1 28 /say WOOO 39 sec ping reply WoW! | /timer5 1 35 /say you better do something about that lagg $1 | /timer6 1 42 /say HELLO!! ARGH! | /timer7 1 49 /say hehehehe Gotcha!
  432. n66=..Block Attack:/me blocks $$1's futile and hopeless attack!
  433. n67=..Glare At:/me glares sharply at $$1 !
  434. n68=..Punch:/me punches $$1 sharply in the nose!
  435. n69=..Shotgun:/me blows $$1 away with a double barrel shotgun!
  436. n70=..Grenade:/me takes out a grenade ... pulls the pin ... 4 ... 3 ..2 ... tosses it at $$1! | /say Damn...what a BLAST!!!
  437. n71=..Hangman:/me puts a tight rope around $$1's neck and opens the channel trapdoor! | /say hung!!!
  438. n72=..Cast Spell:/me casts a magical spell of $?="What kind of spell?" upon $$1!
  439. n73=..Atomic Blast:/me flys over in his B-52 Bomber and drops a 100 bombs over $$1! | /say So Long!  
  440. n74=..Chainsaw:/me takes out his chainsaw and cuts $$1 into so many pieces his momma couldn't put him back together! | /say It slices, it dices, and it makes curly fries!
  441. n75=..Cornholio:/me drinks some coffee and turns into CORNHOLIO!!! | /me does a flying jump kick to $$1's face!
  442. n76=..Yo Mama:/say $$1 $+ , $read c:\mirc\yomama.txt
  443. n77=.-
  444. n78=.General Actions
  445. n79=..Talk Backwards:/backwards $?="Enter a message" 
  446. n80=..Wave:/me waves hi to $$1!
  447. n81=..Hi:/say Hi $$1!
  448. n82=..Bye:/say Bye $$1! Take Care!
  449. n83=..Laugh at:/me laughs uncontrollably at $$1!
  450. n84=..Play ASCII Art:/play c:\internet\mirc\ascii\ $+ $?="Give name of file to play" $+ .txt
  451. n85=-
  452. n86=Massinvite!:/invite $$* $?="What Channel"
  453. n87=-
  454. n88=FeAr KiCkS
  455. n89=.FeAr KiCkS
  456. n90=..Garbage:/me thinks it's time to take out the GARBAGE! | /timer5 1 7 /kick # $1 
  457. n91=..Trouble:/say "I KNOW TROUBLE WHEN I SEE IT " | /timer5 1 7 /kick # $1
  458. n92=..No holds barred:/me becomes ENRAGED with $1 's actions and GRABS $1 by the throat | /say "HOW DOES THIS FEEL" | /me Catapults $1 out of the channel!! | /timer3 1 7 /kick # $1 Call 911 you need it!
  459. n93=..Ops ops ops:/me has had enough of $1 's begging for ops!! | /say Sure you can have ops $1 .... IN ANOTHER CHANNEL | /timer5 1 7 /kick # $1
  460. n94=..Language:/me SsmellsS a foul odor coming from $1 's mouth | /me grabs a can of LYSOL Pine Scented Mist and Sprays $1 's mouth with it | /say "NOPE THAT DIDN'T HELP! Maybe This Will!!! " | /timer5 1 7 /kick # $1 Bye Stinky!
  461. n95=..Pervert:/me detects a PERVERT in ther room! | /me takes a nice solid brick, loads it in a slingshot, Aims for $1 | /say AIM! FIRE!! | /me watches as $1 is belted with the brick | /say WOO It Blew Him Right Out Of The Channel! | /timer5 1 7 /kick # $1 Go To A Sex Channel Pervert!
  462. n96=..Annoying:/say That's All I Can Stand Cause I Can't Stands No More! | /timer5 1 7 /kick # $1 Annoy someone else!
  463. n97=..Age/Sex/Check:/say Hmm..... Lets See..... Age=OLD Sex=PRIVATE and Check=CHECK THIS OUT! | /timer5 1 7 /kick # $1 No Age Sex Checks!
  464. n98=..Flooding:/say Hey.... Theres no flooding on this channel!!! | /timer5 1 7 /kick # $1 ((( FeAr FlOoD PrOtEcTiOn )))
  465. n99=..Idle:/say Hey $1 , you arent saying ANYTHING at all i should kick you shouldnt I? | /kick # $1 TALK SOMETIME!
  466. n100=..AutoKick:/auser 12  
  467. n101=..Swear KiCk!
  468. n102=...ON:/enable #swearkick | /ame 12Watch your mouth Swear kick is now ON! 
  469. n103=...OFF:/disable #swearkick | /ame 12Watch your mouth Swear kick is now OFF! 
  470. n104=..Noise KiCk!
  471. n105=...NOISEKICK ON:/ruser $1 $+ ! | /guser =18 $$1 3 | /notice $me [""NOISE KICK ACTIVATED""] If $1 speakes, $1 will be kicked. | /notice $1 *{NoiseKick}* NoiseKick activated, if you speak, you will be kicked. So please be quiet...
  472. n106=...NOISEKICK OFF:/ruser =19 $$1 3 | /ruser =18 $$1 3 | /notice $me [""NOISE KICK DEACTIVATED""] NoiseKick deactivated for $1. | /notice $1 *{NoiseKick}* NoiseKick deactivated 
  473. n107=.-
  474. n108=.FeAr BAN KICKS!!
  475. n109=..Hate:/me hates the site of $1 's face | /timer1 1 3 /ban # $1 3 | /timer2 1 10 /say You disgust me $1 GET OUT NOW!! | /timer3 1 17 /kick # $1 YOU HAD YOUR CHANCE TO LEAVE WITH DIGNITY!! TOO BAD!!
  476. n110=..Enemy:/me TAKES AIM UPON $1 ! | /timer1 1 5 /me Whips the Cannon 3 degress right ...awww perfect | /timer2 1 10 /say FIRE!! | /timer3 1 15 /ban # $1 3 | /timer4 1 20 /say DAMN JUST GRAZED HIM | /timer5 1 25 /say FIRE 2!!!! | /timer6 1 32 /kick # $1 DIRECT HIT!! | /timer7 1 37 /say HEHEHEHEHEHEHE =)
  477. n111=..Talk:/say $1 IS ALL TALK AND NO ACTION!! | /timer1 1 5 /say LET ME DEMONSTRATE SOME ACTION TO YOU $1 | /timer2 1 10 /ban # $1 3 | /timer3 1 15 /say CAMERA'S.... | /timer4 1 17 /say LIGHTS..... | /timer5 1 20 /kick # $1 ****ACTION****
  478. n112=..Very simple:/say YOU SUCK $1 PLAIN AND SIMPLE!!!! | /timer1 1 7 /ban # $1 3 | /timer2 1 14 /kick # $1 LAMER!!!! 
  479. n113=..FeAr:/me uses $1 's Worst FeAr to destroy him! | /timer1 1 4 /msg $1 AHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH FeAr Me!!!!! | /timer2 1 5 /notice $1 FEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAARRRRRRRRRRRRRRRRRRRR!!!!!!!!!!!! | /timer3 1 6 /ban # $1 3 | /timer4 1 7 /kick # $1 FEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAARRRRRRRRRRRRRRRRRRRRRRRRR!!!!!!!!!!!!! | /timer5 1 8 /ctcp $1 FEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAARRRRRRRRRRRRRRRRRRRRRRRRR!!!!!!! MMMMMMMMMMMMMMMMEEEEEEEEEEEEEEEEEEEEEEE!!!!!!!!!!!!!
  480. n114=-
  481. n115=&ChanScan
  482. n116=.&IRCopScan
  483. n117=..&Private:/set %todo echo 4 $ractive *** | /ircopscan
  484. n118=..&Displayed:/set %todo msg # | /ircopscan
  485. n119=.&CloneScan
  486. n120=..&Private:/set %clone echo 4 $ractive *** | /Scanning
  487. n121=..&Displayed:/set %clone msg # | /Scanning
  488. n122=.&External
  489. n123=..&Private:/set %clone echo 4 $ractive *** | /scanagain
  490. n124=..&Displayed:/set %clone msg # | /scanagain
  491. n125=-
  492.  
  493. [bPopup]
  494. n0=FeArLeSs
  495. n1=Join Channel:/join #$$?="Enter a Channel Name:"
  496. n2=Part Channel:/part #$$?="Enter a Channel Name:"
  497. n3=Query User:/query $$?="Enter a Nickanme and Message:"
  498. n4=Send Notice:/notice $$?="Enter a Nickname and Message:"
  499. n5=Whois User:/whois $$?="Enter Nickname:"
  500. n6=Send CTCP
  501. n7=.Ping:/ctcp $$?="Enter a Nickname:" ping
  502. n8=.Time:/ctcp $$?="Enter a Nickname:" time
  503. n9=.Version:/ctcp $$?="Enter a Nickname:" version
  504. n10=.Finger:/ctcp $$?="Enter a Nickname:" finger
  505. n11=Away
  506. n12=.AWAY
  507. n13=..Set Away:/set %minutes 0 | /timer1 0 60 /inc %minutes 1 | /set %away $?="Enter away message" | /ame is away - %away | /enable #away
  508. n14=..Set Back:/timer1 off | /ame is back | /away | /disable #away 
  509. n15=.PAGER
  510. n16=..On:/ame is away, <ò> /ctcp $me page <ò> to yell at me | /enable #pagersay | /enable #pager
  511. n17=..Off:/ame is back | /away | /disable #pagersay | /disable #pager
  512. n18=Invite User:/invite $$?="Enter Nickname And Channel:"
  513. n19=Ban User:/ban $$?="Enter Channel And Nickname:"
  514. n20=Kick User:/kick $$?="Enter Channel And Nickname:"
  515. n21=Ignore User:/ignore $$?="Enter Nickname:"
  516. n22=Quit IRC:/quit
  517.  
  518. [Variables]
  519. n0=%snick ThePressu
  520. n1=%schan #!teen-warez!
  521. n2=%i 10
  522. n3=%floodpro disable
  523. n4=%maxlines 6
  524. n5=%maxsecs 5
  525. n6=%caponoff disable
  526. n7=%caps.trigger 75
  527. n8=%filter.#!teen-warez! Lamer
  528. n9=%privflood disable
  529. n10=%pmaxlines 7
  530. n11=%pmaxsecs 11
  531. n12=%split1 voyager
  532. n13=%split2 wiznet-hub
  533. n14=%filteronoff disable
  534.  
  535. [Commands]
  536. n0=1:PING:/notice $nick Hey thats sexual harrasment! Im calling the cops on you!:>
  537. n1=1:DCC SEND:/notice $nick Thanx for sending me $parm1 $nick!!!:>
  538. n2=1:DCC CHAT:/notice $nick Let's Chat!!!:>
  539. n3=#pager disabled
  540. n4=1:page:/beep 3 500 | /notice $me ***** $nick just paged you ***** | /speak $nick just paged you | /notice $nick Hi, I'll answer you a.s.a.p, if I don't within a minute or so please leave a message :-) 
  541. n5=#pager end
  542.  
  543. [Events]
  544. n0=:ON JOIN:#:{
  545. n1=  inc %count 1
  546. n2=  /notice $nick Welcome to 4,15-4,14:4,1[  $+ $chan $+ ]4,14:4,15-4,15Todays date & time-<  $+ $date - $+ - $time $+ >-4,14You are person Number -{ 9,1 %count 4,14 }- | { if ($me isop $chan) { %snick = $nick | %schan = $chan | .enable #checkchan | whois $nick } | else { halt } }
  547. n3=}
  548. n4=1:on invite:*:msg $nick Thanks for the invitation | ignore -iu60 $nick 2
  549. n5=1:ON TEXT:!YoMama:#:/describe $chan says: $nick $+ , $read c:\mirc\yomama.txt
  550. n6=1:ON PART:#:/notice $nick ByeBye $nick, Don't Forget To Write!!!
  551. n7=1:ON TOPIC:#:/describe $chan admires $nick's new topic!
  552. n8=+18:ON TEXT:*:*:/kick $chan $nick ((( FeAr NoIsEkIcK )))
  553. n9=+12:ON JOIN:#:/kick $chan $nick ((( FeAr AuToKiCk )))
  554. n10=#swearkick disabled
  555. n11=1:on text:*fuck*:#:/kick $chan $nick <Watch your mouth>
  556. n12=1:on text:*shit*:#:/kick $chan $nick <Watch your mouth>
  557. n13=1:on text:*cunt*:#:/kick $chan $nick <Watch your mouth>
  558. n14=1:on text:*ass*:#:/kick $chan $nick <Watch your mouth>
  559. n15=1:on text:*bitch*:#:/kick $chan $nick <Watch your mouth>
  560. n16=1:on text:*cock*:#:/kick $chan $nick <Watch your mouth>
  561. n17=1:on text:*dick*:#:/kick $chan $nick <Watch your mouth>
  562. n18=1:on text:*slut*:#:/kick $chan $nick <Watch your mouth>
  563. n19=#swearkick end
  564. n20========================Away====================
  565. n21=#away disabled
  566. n22=1:on text:*<your nick>*:#:/notice $nick I've been away for %minutes minutes - %away
  567. n23=1:on action:*<your nick>*:#:/notice $nick I've been away for %minutes minutes - %away
  568. n24=1:on text:*:?:/msg $nick Hi $nick, I've been away for %minutes minutes - %away
  569. n25=#away end
  570. n26=#pagersay disabled
  571. n27=1:on text:*<your nick>*:#:/notice $nick Hi $nick, please <ò> /ctcp $me page <ò> to yell at me
  572. n28=1:on action:*<your nick>*:#:/notice $nick Hi $nick, please <ò> /ctcp $me page <ò> to yell at me
  573. n29=1:on text:*:?:/msg $nick Hi $nick, please <ò> /ctcp $me page <ò> to yell at me
  574. n30=#pagersay end
  575. n31======================NETSPLIT=================
  576. n32=1:ON QUIT: {
  577. n33=  if (%splitstat == OFF) { halt }
  578. n34=  if (($right(7,$parm1) == dal.net) && ($right(7,$parm2) == dal.net)) {
  579. n35=    if ($parms == %split) { halt }
  580. n36=    set %split1 $token(1,46,$parm1) | set %split2 $token(1,46,$parm2)
  581. n37=    echo 12******** SPLIT WARNING ********
  582. n38=    echo 12Possible Split at: é $+ %split1 $+ é $+ %split2 $+ é
  583. n39=    echo 12***** -=[Split Detector v1.0]=- *****
  584. n40=    set %split $parms
  585. n41=    timer 1 5 unset %split
  586. n42=  }
  587. n43=}
  588.  
  589. [Raw]
  590. n0=#opscan disabled
  591. n1=352:*: {
  592. n2=  if (* isin $parm7) { set %oper %oper $parm6 }
  593. n3=}
  594. n4=315:*: {
  595. n5=  %todo 12Scanning for IRCops on ╗ $+ $parm2 $+ ½ . . .
  596. n6=  if (%oper != $null) { %todo 12IRCops:4 %oper }
  597. n7=  else { %todo 4No IRCops Present }
  598. n8=  .disable #opscan | unset %oper
  599. n9=}
  600. n10=#opscan end
  601. n11=#status disabled
  602. n12=352:*: {
  603. n13=  if (%clone == $null) { set %clone echo 4 }
  604. n14=  if (+ isin $parm7) { set %voiced %voiced $parm6 }
  605. n15=  if (G isin $parm7) { set %awayz %awayz $parm6 }
  606. n16=  if (* isin $parm7) { set %operz %operz $parm6 }
  607. n17=  if (%clonenick [ $+ [ $parm4 ] ] != $null) && ($parm4 !isin %cloneaddlist) { set %cloneaddlist %cloneaddlist $parm4 } 
  608. n18=  set %clonenick $+ $parm4 [ %clonenick [ $+ [ $parm4 ] ] ] $parm6 | halt
  609. n19=}
  610. n20=315:*: {
  611. n21=  %clone $str(25,=-) $+ =
  612. n22=  %clone 12ChaNneL StaTiSTiCs FoR ╗ $+ $parm2 $+ ½ . . .
  613. n23=  %clone 12ToTal PeoPLe: 4( $+ $nick(0,$parm2) $+ ) 12OpZ 4( $+ $opnick(0,$parm2) $+ ) 12NoN-OpZ 4( $+ $nopnick(0,$parm2) $+ )
  614. n24=  if (%awayz != $null) { %clone 12Away:4 %awayz }
  615. n25=  else { %clone 12Away: 4None. }
  616. n26=  if (%voiced != $null) { %clone 12Voiced:4 %voiced }
  617. n27=  else { %clone 12Voiced: 4None. }
  618. n28=  if (%operz != $null) { %clone 12IRCops:4 %operz }
  619. n29=  else { %clone 12IRCops: 4None. }
  620. n30=  %clonec = 1 | if (%cloneaddlist == $null) { %clone 12CloNeS... ? | %clone 12Clones: 4None | goto end }
  621. n31=  else { %clone 12Clones: 4Yes | goto loop }  
  622. n32=  :loop
  623. n33=  %clone 12CloNeS: %clonenick 4[ $+ [ $token(%clonec,32,%cloneaddlist) ] ] ( $+ *!*@ $+ $token(%clonec,32,%cloneaddlist) $+ )
  624. n34=  inc %clonec | if ($token(%clonec,32,%cloneaddlist) != $null) goto loop 
  625. n35=  :end
  626. n36=  %clone $str(25,=-) $+ =
  627. n37=  unset %clone* %awayz %operz %voiced | disable #status | halt
  628. n38=}
  629. n39=#status end
  630. n40=#CloneScan disabled
  631. n41=352:*: {
  632. n42=  if (%clonenick [ $+ [ $parm4 ] ] != $null) && ($parm4 !isin %cloneaddlist) { set %cloneaddlist %cloneaddlist $parm4 } 
  633. n43=  set %clonenick $+ $parm4 [ %clonenick [ $+ [ $parm4 ] ] ] $parm6 | halt
  634. n44=}
  635. n45=315:*: {
  636. n46=  if (%clone == $null) { set %clone echo 4 }
  637. n47=  %clone 12CloNe ScaN FoR ╗ $+ $parm2 $+ ½
  638. n48=  %clonec = 1 | if (%cloneaddlist == $null) { %clone 12CloNeS...? | %clone 12Clones: 4None | goto end }
  639. n49=  else { %clone 12Clones: 4Yes | goto loop }  
  640. n50=  :loop
  641. n51=  %clone 12CloNeS: %clonenick 4[ $+ [ $token(%clonec,32,%cloneaddlist) ] ] ( $+ *!*@ $+ $token(%clonec,32,%cloneaddlist) $+ )
  642. n52=  inc %clonec | if ($token(%clonec,32,%cloneaddlist) != $null) goto loop 
  643. n53=  :end
  644. n54=  unset %clone* %ticks | disable #CloneScan | halt
  645. n55=}
  646. n56=#CloneScan end
  647. n57=======================PERV KICK=====================
  648. n58=#checkchan disabled
  649. n59=319:*: {
  650. n60=  %checkchan = $parms | %checknum = $count(%checkchan,$chr(32)) + 1 | %i = 0 | :loop | inc %i 
  651. n61=  if (%i > %checknum) { goto end } 
  652. n62=  else { 
  653. n63=    %checkreal = $token(%i,32,%checkchan) 
  654. n64=    if (teen isin %checkreal) && ((sex isin %checkreal) || (pic isin %checkreal)) { ban -u300 %schan %snick 3 | kick %schan %snick º╗í½º []baz▀ot[] Teen Sex Channel Detected ( $+ %checkreal $+ ) 5 Minutes Ban! []baz▀ot[] º╗í½º | goto end }  
  655. n65=  else { goto loop } } 
  656. n66=  :end | .disable #checkchan | unset %check* 
  657. n67=}
  658. n68=#checkchan
  659.